home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9203.ZIP / OOPASM.ZIP / VMENU0.ASM < prev    next >
Assembly Source File  |  1990-07-22  |  1KB  |  73 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8.     UR    EQU    1            ;Upper row
  9.     LC    EQU    2            ;Left column
  10.     LR    EQU    5            ;Lower row
  11.     RC    EQU    10            ;Right column
  12.     MR    EQU    UR-1            ;Mouse row
  13.  
  14. IF1
  15.     INCLUDE    macros.mac
  16.     INCLUDE    objects.mac
  17. ENDIF
  18.  
  19.     EXTRN    Hardware:WORD
  20.     EXTRN    File:WORD
  21.     EXTRN    FileDlg:WORD
  22.     EXTRN    MenuBar:WORD
  23.     EXTRN    Self:WORD
  24.     EXTRN    System:WORD
  25.     EXTRN    VertMenu:WORD
  26.  
  27.     .CODE
  28.  
  29.     .DATA
  30.  
  31. defMenu    VertMenu0,<\
  32.     " Open  ",\
  33.     " Close ",\
  34.     " Quit  ">
  35.  
  36. defMenuTbl    VertMenu0,\
  37.     <Self,Clear,FileDlg,Refresh,FileDlg,Read>,\
  38.     <Self,Clear,File,Close>,\
  39.     <Self,Clear,System,Refresh,System,Read>
  40.  
  41. defDispTbl    VertMenu0,\
  42.     <0,0,3,0,0,0,0,System,Reset>,\
  43.     <0,72,3,0,0,0,0,Self,Prev>,\
  44.     <0,80,3,0,0,0,0,Self,Next>,\
  45.     <13,28,0,MR,LC,LR,LC+8,Self,Select>,\
  46.     <0,Nil,1,MR,LC,LR,LC+8,Self,Drag>,\
  47.     <0,68,3,0,0,0,0,Self,Clear,System,Refresh,System,Read>,\
  48.     <0,75,3,0,0,0,0,Self,Clear,MenuBar,SelectPrev>,\
  49.     <0,77,1,MR,LC+6,MR,LC+14,Self,Clear,MenuBar,SelectNext>,\
  50.     <27,1,0,0,0,24,79,Self,Clear>,\
  51.     <0,Nil,1,0,0,24,79,Self,DeHilite>,\
  52.     <Nil,Nil,Nil,0,0,24,79,Hardware,Refresh>
  53.  
  54. defObj    VertMenu0,\
  55.     <VertMenu>,\
  56.     <Row1,1,UR,\
  57.     Col1,1,LC,\
  58.     Row2,1,LR,\
  59.     Col2,1,RC,\
  60.     Color,1,17h,\
  61.     Unused,1,Nil,\
  62.     TxtPtr,2,Nil,\
  63.     InxPtr,2,0,\
  64.     MasterObj,2,Nil,\
  65.     DispTbl,2,VertMenu0DispTbl,\
  66.     MenuPtr,2,VertMenu0Menu,\
  67.     MenuTbl,2,VertMenu0MenuTbl>,\
  68.     <Refresh,Read,Next,Prev,Select,Clear,Hilite,DeHilite,Drag>
  69.  
  70.  
  71.  
  72.     END
  73.